
procedure initseed;
BEGIN
 timestring := '  :  :  ';
 seed := 0;
 time(timestring);
 FOR i := 1 TO 8 DO seed := seed + ORD(timestring[i]);
END;
